home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / alert.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  8.6 KB  |  221 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsLocStrings.inc"-->
  3. <!--#include file="include/wmsPlugins.inc"-->
  4. <!--#include file="include/wmsServerHash.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsError.inc"-->
  7. <%
  8. '+-------------------------------------------------------------------------
  9. '
  10. '  Microsoft Windows Media
  11. '  Copyright (C) Microsoft Corporation. All rights reserved.
  12. '
  13. '  File:      Alert.asp
  14. '
  15. '  Contents:  A simple dialog.  We don't do any OM processing, here.  All we
  16. '             do is prop up a simple dialog built depending opon the querystring's 
  17. '             Op argument
  18. '
  19. '--------------------------------------------------------------------------
  20.  
  21. Const NOBUTTONS = 0
  22. Const YES_BUTTON = 1
  23. Const OK_BUTTON = 2
  24. Const ADD_BUTTON = 4
  25. Const REMOVE_BUTTON = 8
  26. Const APPLY_BUTTON = 16
  27. Const NO_BUTTON = 32
  28. Const CANCEL_BUTTON = 64
  29. Const HELP_BUTTON = 128
  30.  
  31. Dim strTitle
  32. Dim strHelpText
  33. Dim strPrompt
  34. Dim dwButtonMode
  35. Dim strIconPath
  36. Dim strQsEcho
  37. Dim strPluginIndex
  38.  
  39. blnError = FALSE
  40.  
  41. BrowserSniff
  42.  
  43. strTitle = ""
  44. strPrompt = ""
  45. strHelpText = ""
  46. dwButtonFlags = NOBUTTONS
  47. strIconPath = ""
  48. strQsEcho = ""
  49. strPluginIndex = RemoveDangerousCharacters( trim( qs( "pluginIndex" ) ) )
  50.  
  51. on error resume next
  52.  
  53. Dim dwOp
  54. dwOp = CDbl( trim( qs( "op" ) ) )
  55. select case( dwOp )
  56.     case OP_REMOVE_SERVER
  57.         strTitle = L_REMOVESERVER_TEXT
  58.         strPrompt = L_CONFIRMSERVERREMOVE1_TEXT & "<span style=color:red;>" & Server.HTMLEncode( SafeUnescape( qs( "server" ) ) ) & "</span>" & L_CONFIRMSERVERREMOVE2_TEXT
  59.         dwButtonFlags = REMOVE_BUTTON or CANCEL_BUTTON or HELP_BUTTON
  60.         strIconPath = "img/MsgBoxAlert_Warning_32.gif"
  61.         szHelpTopic = H_SERVERREMOVEHELPTOPIC
  62.         strQsEcho = "&op=remove"
  63.     case OP_DISABLECRITSYSPLUGIN
  64.         ConnectToPlugin
  65.         strTitle = L_DISABLESYSPLUGIN_TEXT
  66.         strPrompt = L_REMOVECRITPLCONF_TEXT & g_strPluginName & L_QUESTIONMARK_TEXT
  67.         dwButtonFlags = YES_BUTTON or NO_BUTTON
  68.         strIconPath = "img/MsgBoxAlert_Warning_32.gif"
  69.         szHelpTopic = ""
  70.     case OP_RENAME_STARTED_PUBPOINT
  71.         strTitle = L_RENAMEPUBPT_TEXT
  72.         strPrompt = L_RENPPSTART_TEXT
  73.         dwButtonFlags = OK_BUTTON or HELP_BUTTON
  74.         strIconPath = "img/MsgBoxAlert_Critical_32.gif"
  75.         szHelpTopic = H_PPRENAMETOPIC
  76.     case OP_REMOVE_PLUGINERRDIS
  77.         strTitle = L_REMOVEPLUGIN_TEXT
  78.         strPrompt = L_LONGREMOVEPLUGINERROR_TEXT
  79.         dwButtonFlags = YES_BUTTON or NO_BUTTON
  80.         strIconPath = "img/MsgBoxAlert_Warning_32.gif"
  81.         szHelpTopic = ""
  82.     case Else
  83.         strTitle = "??"
  84.         strPrompt = "??"
  85.         dwButtonFlags = CANCEL_BUTTON
  86.         strIconPath = "img/MsgBoxAlert_Warning_32.gif"
  87.         szHelpTopic = ""
  88. end select
  89.  
  90. WriteHTMLHeader( strTitle ) 
  91. %>
  92. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  93. <script language="JavaScript" src="include/WMSCommon.js"></script>
  94. <script language="JavaScript">
  95. <!--
  96. /*@cc_on @*/
  97. <% WriteCommonJSUtils %>
  98.  
  99. function EndDialog( dwResult )
  100. {
  101.     <% jsTRY %>
  102.     var szUrlPrefix;
  103.     szUrlPrefix = document.location.protocol + "//" + document.location.hostname + ":" + document.location.port;
  104.     var szExtraParams;
  105.  
  106. <%
  107. select case( dwOp )
  108.     case OP_REMOVE_PLUGINERRDIS
  109. %>    szExtraParams = "&ppID=<%= qs("ppID") %>&category=<%= qs( "category" ) %>&op=remove";
  110. <%
  111.     case OP_DISABLECRITSYSPLUGIN
  112. %>    szExtraParams = "&ppID=<%= qs("ppID") %>&category=<%= qs( "category" ) %>&op=disable";
  113. <%
  114.     case OP_RENAME_STARTED_PUBPOINT
  115. %>    szExtraParams = "&ppID=<%= qs("ppID") %>";
  116. <%
  117.     case else
  118. %>    szExtraParams = "";
  119. <%
  120. end select
  121. %>
  122.     document.location.replace( szUrlPrefix + "<%= qs("path") %>?server=<%= qs( "server" ) & strQsEcho %>&pluginIndex=<%= strPluginIndex %>&result=" + dwResult + szExtraParams );
  123.     <% jsCATCH %>
  124. }
  125. -->
  126. </script>
  127. </head>
  128. <body width="<%= Server.HTMLEncode( STDTABLEWIDTH ) %>" topmargin="10" leftmargin="10" rightmargin="10" marginwidth="10" marginheight="10" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  129. <% BeginErrorHandling %><%
  130. if( brMSIE <> g_dwBrowserType ) then
  131.     Response.Write( "<br> <br>" )
  132. end if
  133. %>
  134. <form name="alert" method="get" AUTOCOMPLETE="OFF">
  135. <table cellspacing="0" cellpadding="4" <% if( brMSIE = g_dwBrowserType ) then %>class="dialogframe" <% else %> bgcolor="lightgrey" <% end if %> border="3"><tr><td>
  136. <table width=="80%" cellspacing="5" cellpadding="0" cols="3" border="0">
  137. <tr>
  138.     <td align="left" width="32">
  139.         <img src="<%= strIconPath %>" height="32" width="32" border="0">
  140.     </td>
  141.     <td align="left" valign="middle">
  142.         <span class="subheader"><%= Server.HTMLEncode( strTitle ) %> </span>
  143.     </td>
  144. </tr>
  145. </table>
  146. <table width=="80%" cellspacing="5" cellpadding="0" cols="3" border="0">
  147. <tr>
  148.     <td align="left" width="32">
  149.          
  150.     </td>
  151.     <td align="left" colspan="2">
  152.         <span class="helptext"><%= Server.HTMLEncode( strPrompt ) %> </span>  
  153.     </td>
  154. </tr>
  155. </table>
  156. <input type="hidden" name="caller" value="<%= RemoveDangerousCharacters( qs( "caller" ) ) %>">
  157. <table cellspacing="4" cellpadding="0" border="0" <% if( brMSIE = g_dwBrowserType ) then %>style="position:relative;left:64px;zOrder:1;"<% end if %>>
  158. <tr>
  159.     <td valign="top" align="left">
  160.          
  161.     </td>
  162.     <% if ( YES_BUTTON and dwButtonFlags ) then %>
  163.     <td valign="top" align="right">
  164.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_YES ) %> );" type="button" value="<%= Server.HTMLEncode( L_YESBUTTON_TEXT ) %>"> 
  165.     </td>
  166.     <% elseif ( OK_BUTTON and dwButtonFlags ) then %>
  167.     <td valign="top" align="right">
  168.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_YES ) %> );" type="button" value="<%= Server.HTMLEncode( L_OKAYBUTTON_TEXT ) %>"> 
  169.     </td>
  170.     <% elseif ( ADD_BUTTON and dwButtonFlags ) then %>
  171.     <td valign="top" align="right">
  172.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_YES ) %> );" type="button" value="<%= Server.HTMLEncode( L_ADDBUTTONSPACED_TEXT ) %>"> 
  173.     </td>
  174.     <% elseif ( REMOVE_BUTTON and dwButtonFlags ) then %>
  175.     <td valign="top" align="right">
  176.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_YES ) %> );" type="button" value="<%= Server.HTMLEncode( L_REMOVEBUTTONSPACED_TEXT ) %>"> 
  177.     </td>
  178.     <% elseif ( APPLY_BUTTON and dwButtonFlags ) then %>
  179.     <td valign="top" align="right">
  180.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_YES ) %> );" type="button" value="<%= Server.HTMLEncode( L_APPLYBUTTON_TEXT ) %>"> 
  181.     </td>
  182.     <% end if %>
  183.  
  184.     <% if ( NO_BUTTON and dwButtonFlags ) then %>
  185.     <td valign="top" align="right">
  186.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_NO ) %> );" type="button" value="<%= Server.HTMLEncode( L_NOBUTTON_TEXT ) %>"> 
  187.     </td>
  188.     <% end if %> 
  189.  
  190.     <% if ( CANCEL_BUTTON and dwButtonFlags ) then %>
  191.     <td valign="top" align="right">
  192.         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="button" align="right" name="default" onclick="JavaScript:EndDialog( <%= Server.HTMLEncode( ID_CANCEL ) %> );" type="button" value="<%= Server.HTMLEncode( L_CANCELBUTTONSPACED_TEXT ) %>"> 
  193.     </td>
  194.     <% end if %> 
  195.  
  196.     <% if ( HELP_BUTTON and dwButtonFlags ) then %>
  197.     <td valign="top" align="right">
  198.         <input 
  199.             class="button" 
  200.             align=baseline 
  201.             name="help"
  202.             onclick="JavaScript:DoHelp( '<%= H_SERVERLEVEL %>','<%= szHelpTopic %>' );" 
  203.             tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> 
  204.             type="button" 
  205.             value="<%= Server.HTMLEncode( L_HELPBUTTONSPACED_TEXT ) %>"> 
  206.     </td>
  207.     <% end if %> 
  208.  
  209.     <td valign="top" align="right">
  210.          
  211.     </td>
  212. </tr>
  213. </table>
  214. </td></tr></table>
  215. </form>
  216. </body>
  217. </html>
  218. <%
  219. PluginsASPCleanup
  220. %>
  221.